home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: MegaDisc / MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).zip / MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).adf / ARexx / Modular / ArpWin.mod < prev    next >
Text File  |  1993-08-19  |  637b  |  16 lines
  1.         /*  ----------  Open rexxarplib window  ----------  */
  2.     ArpWin:   
  3.      address AREXX '"call CreateHost(HO,PO)"'
  4.      cmd = 'WaitForPort HO' 
  5.      if ~show('Ports',HO) then address command cmd 
  6.      flags = 'WINDOWCLOSE+WINDOWDEPTH+WINDOWDRAG+WINDOWSIZING'
  7.      idcmp = 'GADGETUP+CLOSEWINDOW+MOUSEBUTTONS'    
  8.      ti = 'A severe case of modularity'
  9.      address AREXX '"call CreateHost(HO,PO)"'
  10.      if ~show('Ports',HO) then address command 'WaitForPort HO' 
  11.      call OpenWindow(HO,arg(1),arg(2),arg(3),arg(4),idcmp,flags,ti) 
  12.      call ActivateWindow(HO)
  13.      call ModifyHost(HO,'MOUSEBUTTONS','%l %x %y')
  14.      return   
  15.  
  16.